home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / network / wwais103.zip / GLOBAL.BAS < prev    next >
BASIC Source File  |  1992-03-15  |  2KB  |  54 lines
  1. Global Const TRUE = -1
  2. Global Const FALSE = 0
  3. Global Const MAXIMIZED = 2
  4. Global Const DEFAULT = 0
  5. Global Const HOURGLASS = 11
  6.  
  7. Global Const MAXDOCS = 100
  8. Global max_docs%
  9.  
  10. Global s_change_accepted As Integer
  11. Global sources_loaded As Integer
  12.  
  13. Global s_database(MAXDOCS) As String
  14. Global s_port(MAXDOCS) As Long
  15. Global s_service(MAXDOCS) As String
  16.  
  17. Global src_database(MAXDOCS) As String
  18. Global src_port(MAXDOCS) As Long
  19. Global src_service(MAXDOCS) As String
  20.                         
  21. Global title_doc_size(MAXDOCS) As Long
  22. Global title_doc_bytes(MAXDOCS) As String
  23. Global title_type(MAXDOCS) As String * 11
  24.  
  25. Global ref_doc_size(MAXDOCS) As Long
  26. Global ref_doc_bytes(MAXDOCS) As String
  27. Global ref_type(MAXDOCS) As String * 11
  28. Global ref_start(MAXDOCS) As Long
  29. Global ref_end(MAXDOCS) As Long
  30.  
  31. Type DOC
  32.     score As Integer
  33.     length As Long
  34.     doc_size As Long
  35.     type As String * 11
  36.     doc_bytes As String * 200
  37.     title As String * 70
  38. End Type
  39.  
  40. Type REF
  41.     ch_start As Long
  42.     ch_end As Long
  43.     doc_size As Long
  44.     type As String * 11
  45.     doc_bytes As String * 200
  46. End Type
  47.  
  48. Declare Function reference_titles Lib "wais.dll" (ByVal func As Integer, ByVal tot_ref As Integer, reference As REF) As Integer
  49. Declare Function query_titles Lib "wais.dll" (ByVal func As Integer, ByVal tot_ref As Integer, ByVal svr As String, ByVal db As String, ByVal kw As String, ByVal port As Long) As Integer
  50. Declare Function get_titles Lib "wais.dll" (ByVal docno As Integer, headline As DOC) As Integer
  51. Declare Function get_document Lib "wais.dll" (ByVal docno As Integer, ByVal tp As String) As Integer
  52. Declare Function set_maxdocs Lib "wais.dll" (ByVal number As Integer) As Integer
  53.  
  54.